home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / GCR_READ.ARC / RD TRK 9 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  69 lines
  1. 10 ;RD TRK 9
  2. 20 ;THE LISTEN ROUTINE ALERTS THE DISK THAT A COMMAND IS BEING SENT
  3. 30 ;OVER THE SERIAL BUS. THIS COMMAND IS PLACED IN THE 1541'S COMMAND
  4. 40 ;BUFFER AT $0200 IT IS THEN PARSED AND EXECUTED.
  5. 50 ;
  6. 60 ;THE TALK ROUTINE SENDS 1 BYTE AT A TIME FROM THE 1541 TO THE 64 OVER THE
  7. 70 ;SERIAL BUS. THE BYTE IS HELD IN THE A REGISTER.
  8. 80 ;
  9. 90 ;BOTH ROUTINES REQUIRE THAT A SECONDARY ADDRESS BE SPECIFIED.
  10. 100 ;
  11. 140 INIT JSR LIST
  12. 150 LDA #$49; "I"
  13. 160 JSR OUT; SEND 1 BYTE TO THE 1541
  14. 170 JSR UNLIS
  15. 180 RTS
  16. 1250 LIST LDA #$08; LISTEN
  17. 1260 JSR LIS
  18. 1270 LDA #$FF
  19. 1280 JSR LISEC
  20. 1290 RTS
  21. 1300 TALK LDA #$08
  22. 1310 JSR TLK; GET 1 BYTE FROM THE 1541
  23. 1320 LDA #$FF
  24. 1330 JSR TLKSEC
  25. 1340 RTS
  26. 1350 DISP LDY #$00; PRINT ERRORS TO SCREEN
  27. 1360 UT LDA ERMES,Y
  28. 1370 CMP #$00
  29. 1380 BEQ UT1
  30. 1390 JSR PRINT
  31. 1395 INY
  32. 1400 JMP UT
  33. 1493 UT1 LDA #$20
  34. 1494 JSR PRINT
  35. 1500 LDY #$00
  36. 1510 LP11 LDA #$30
  37. 1520 JSR PRINT
  38. 1530 LDA BUFF,Y
  39. 1540 CMP #$0A
  40. 1550 BCC LESS; BYTE IS A 1 THRU 9
  41. 1560 CLC
  42. 1570 ADC #$07; ADD 7 TO PRINT A THRU F
  43. 1580 LESS CLC
  44. 1590 ADC #$30
  45. 1600 JSR PRINT
  46. 1610 LDA #$20
  47. 1620 JSR PRINT
  48. 1630 INY
  49. 1640 CPY SEC
  50. 1650 BNE LP11
  51. 1660 JSR PRINT
  52. 1670 FIN RTS
  53. 1680 CHKERR JSR LIST;WAIT FOR COMMAND TO BE REPLACED WITH ERROR CODE
  54. 1690 LDY #$00
  55. 1700 CHK1 LDA MR2,Y
  56. 1710 JSR OUT
  57. 1720 INY
  58. 1730 CPY #$06
  59. 1740 BNE CHK1
  60. 1750 JSR UNLIS
  61. 1760 JSR TALK
  62. 1770 JSR IN
  63. 1780 STA ERR
  64. 1790 JSR UNTLK
  65. 1800 LDA ERR
  66. 1810 BMI CHKERR; SEVENTH BIT SET "NO ERROR CODE"
  67. 1820 RTS
  68. 1900 .FILE RD TRK 10
  69.